home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 23.zip / BS1 part 23 / Prof page II cgfonts 1.adf / Install_All_Fonts < prev    next >
AmigaDOS Script File  |  1990-02-01  |  3KB  |  138 lines
  1. .KEY dest
  2. .BRA {
  3. .KET }
  4.  
  5. ; Install_All_Fonts - Install All CGFonts onto a hard drive.
  6. ;
  7. ; Inputs:
  8. ;    dest   Directory to install Font into
  9. ;
  10.  
  11. ASSIGN CGFInstOrig: ""            ; Save initial directory
  12.  
  13. ; Start with a fresh copy, to avoid any screwups
  14. IF EXISTS RAM:CGFInstall
  15.    DELETE RAM:CGFInstall/#? quiet
  16. ELSE
  17.    MAKEDIR RAM:CGFInstall
  18. ENDIF
  19.  
  20. CD ram:CGFInstall   ; Search it without adding it to path
  21. C:COPY C:Copy    RAM:CGFInstall
  22. Copy   C:Assign  RAM:CGFInstall
  23. Copy   C:Echo    RAM:CGFInstall
  24. Copy   C:If      RAM:CGFInstall
  25. Copy   C:Else    RAM:CGFInstall
  26. Copy   C:Endif   RAM:CGFInstall
  27. Copy   C:Makedir RAM:CGFInstall
  28. Copy   C:Failat  RAM:CGFInstall
  29.  
  30. COPY CGFonts_1:InstUtil     RAM:CGFInstall
  31.  
  32. ;
  33. ; Make sure that the destination exists and is a directory
  34. ;
  35. IF NOT EXISTS {dest$CGFonts:}
  36.    ECHO "*N ********** Couldn't find drawer {dest$CGFonts:} ***********N"
  37.    SKIP wrapup
  38. ENDIF
  39.  
  40. INSTUTIL isdir {dest$CGFonts:}
  41. IF WARN
  42.    ECHO "*N ********** {dest$CGFonts:} is not a drawer! ***********N"
  43.    SKIP wrapup
  44. ENDIF
  45.  
  46. INSTUTIL ask -dy "Install Compugraphic Fonts onto {dest$CGFonts:} [Y/N]? Y"
  47. IF warn
  48.    ECHO "*N Installation aborted!*N"
  49.    SKIP wrapup
  50. ENDIF
  51.  
  52. ;
  53. ; finally do the actual installation:
  54. ;
  55. FAILAT 21
  56. ECHO "*N --------------------------------------------------------------------"
  57. ECHO "*N    Copying All Compugraphic Fonts to {dest$CGFonts:} ..."
  58. ECHO "*N --------------------------------------------------------------------"
  59. ECHO "*N    Triumvirate ..."
  60. COPY CGFonts_1:Triumvirate           to {dest$CGFonts:} quiet
  61. IF ERROR
  62.    SKIP wrapup
  63. ENDIF
  64. ECHO "    Triumvirate-Condensed ..."
  65. COPY CGFonts_1:Triumvirate-Condensed to {dest$CGFonts:} quiet
  66. IF ERROR
  67.    SKIP wrapup
  68. ENDIF
  69. ECHO "    Times ..."
  70. COPY CGFonts_2:Times                 to {dest$CGFonts:} quiet
  71. IF ERROR
  72.    SKIP wrapup
  73. ENDIF
  74. ECHO "    Courier ..."
  75. COPY CGFonts_2:Courier               to {dest$CGFonts:} quiet
  76. IF ERROR
  77.    SKIP wrapup
  78. ENDIF
  79. ECHO "    ITCBookman ..."
  80. COPY CGFonts_3:ITCBookman            to {dest$CGFonts:} quiet
  81. IF ERROR
  82.    SKIP wrapup
  83. ENDIF
  84. ECHO "    ITCAvantGarde ..."
  85. COPY CGFonts_3:ITCAvantGarde         to {dest$CGFonts:} quiet
  86. IF ERROR
  87.    SKIP wrapup
  88. ENDIF
  89. ECHO "    Palacio ..."
  90. COPY CGFonts_4:Palacio               to {dest$CGFonts:} quiet
  91. IF ERROR
  92.    SKIP wrapup
  93. ENDIF
  94. ECHO "    ITCZapfChancery ..."
  95. COPY CGFonts_4:ITCZapfChancery       to {dest$CGFonts:} quiet
  96. IF ERROR
  97.    SKIP wrapup
  98. ENDIF
  99. ECHO "    CenturySchlbk ..."
  100. COPY CGFonts_5:CenturySchlbk         to {dest$CGFonts:} quiet
  101. IF ERROR
  102.    SKIP wrapup
  103. ENDIF
  104. ECHO "    Symbol ..."
  105. COPY CGFonts_5:Symbol                to {dest$CGFonts:} quiet
  106. IF ERROR
  107.    SKIP wrapup
  108. ENDIF
  109. ECHO "    ITCZapfDingbats ..."
  110. COPY CGFonts_5:ITCZapfDingbats       to {dest$CGFonts:} quiet
  111. IF ERROR
  112.    SKIP wrapup
  113. ENDIF
  114. ;
  115. ; make sue that there is a PS subdirectory on CGFonts:
  116. ;
  117. IF {dest$CGFonts:} EQ "CGFonts:"
  118.    IF NOT EXISTS CGFonts:PS
  119.       MAKEDIR CGFonts:PS
  120.    ENDIF
  121. ENDIF
  122.  
  123. ECHO "*N --------------------------------------------------------------------"
  124. ECHO "*N*N Installation of Compugraphic Fonts complete."
  125. ECHO "*N ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*N"
  126.  
  127. ;
  128. ; Clean up
  129. ;
  130. LAB wrapup
  131.  
  132. CD CGFInstOrig:
  133. DELETE >NIL: RAM:CGFInstall all quiet
  134. Assign CGFInstOrig:
  135.  
  136. CGFonts_1:InstUtil ask "Press RETURN."
  137.  
  138.